home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00022_NavStructSetUp.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  1.6 KB  |  84 lines
  1. --
  2. -- NavStructSetUp
  3. --
  4.  
  5. -- constants:
  6.  
  7.  
  8. property ancestor
  9.  
  10.  
  11. on new me
  12.   set ancestor = new (script "NavStructMgr")
  13.   return me
  14. end
  15.  
  16.  
  17. on destruct me
  18.   if objectP (ancestor) then destruct (ancestor)
  19.   set ancestor = 0
  20. end
  21.  
  22.  
  23. on setUp me
  24.   set mainStructure = getDirContents (me, the pathname)
  25.   set modulePath = the pathname & "modules"
  26.   set mod1 = getDirContents (me, modulePath)
  27.   set modules = [:]
  28.   
  29.   repeat with f in mod1
  30.     if f <> "" then
  31.       set tmp = getActivityPath (me, modulePath & pathChar (me) & f)
  32.       if count (tmp) then addProp (modules, f, tmp)
  33.     end if
  34.   end repeat
  35.   
  36.   debug (modules)
  37.   
  38.   --JCODE
  39.   sort modules
  40.   modules = SortActivities(modules)
  41.   --END JCODE
  42.   
  43.   setStruct (me, modules)
  44. end
  45.  
  46.  
  47. --JCODE
  48.  
  49. on SortActivities sortList
  50.   put [] into theActivities
  51.   put count(sortList) into n
  52.   repeat with i = 1 to n
  53.     
  54.     set theActivities = getAt(sortList, i)
  55.     sort theActivities
  56.     setAt(sortList, i, theActivities)
  57.     
  58.   end repeat
  59.   
  60.   return sortList
  61.   
  62. end
  63. --JCODE
  64.  
  65.  
  66. -- return the name of the first alphaNumeric director movie contained in the top level of the activityDir.
  67. -- do not add an activity to the list if it does not contain a director movie.
  68.  
  69. on getActivityPath me, activityPath
  70.   set lst = getDirContents (me, activityPath)  
  71.   set lst2 = []
  72.   repeat with dir in lst
  73.     set tmp = getDirContents (me, activityPath & pathChar (me) & dir)
  74.     sort tmp
  75.     repeat with f in tmp
  76.       if f contains ".dir" or f contains ".dxr" then
  77.         add (lst2, dir & pathChar (me) & f)
  78.         exit repeat
  79.       end if
  80.     end repeat
  81.   end repeat
  82.   return lst2
  83. end
  84.